10 DIM T(120),S(120)
20 GOSUB10000
30 POKE211,11:POKE214,18:SYS58732
40 PRINT"[158]CHECK OR [146]VALIDATE"
45 PRINTTAB(15)"[153]_[146] = EXIT[158]"
50 POKE198,0:WAIT198,1
60 GETW$:IFW$<>"C"ANDW$<>"V"ANDW$<>"_"THEN 50
70 IFW$="_"THENPRINT"GOOD BYE...!":END
160 POKE 211,5:POKE 214,18:SYS 58732
170 PRINT "[158]INSERT DISK AND PRESS ANY KEY"
200 POKE 198,0:WAIT 198,1
210 CLOSE 15:OPEN 15,8,15,"I"
220 INPUT#15,E,EM$,ET,ES
230 IF E<20 THEN 260
240 PRINT TAB(5)"[145][158]NO DISK OR DISK NOT FORMATTED":TI$="000000"
250 WAIT 161,1:CLOSE 15:GOTO 20
260 IF W$="V" THEN 1000
410 GOSUB 20000:X=0:FOR T=1 TO 35:POKE 211,T+2:POKE 214,21:SYS 58732
420 W=176:S=0:GOSUB 1210
430 F=0:IF E<>1 THEN F=1
440 SM=20+2*(T>17)+(T>24)+(T>30)
450 FOR S=0 TO SM:IF F=1 THEN E=2:GOTO 470
460 W=128:GOSUB 1210:IF E>128 THEN E=2
470 IF E<>1 THEN PRINT "";:X=X+1:T(X)=T:S(X)=S:GOTO 490
480 PRINT "";
490 PRINT "[209][145][157]";
500 IF X<120 THEN NEXT S,T:GOTO 530
510 GOSUB 10000:POKE 211,12:POKE 214,18:SYS 58732
520 PRINT "[158]UNREPAIRABLE DISK!":GOTO 650
530 CLOSE 15
540 IF X<>0 THEN 570
550 GOSUB 10000:POKE 211,13:POKE 214,18:SYS 58732:PRINT "[158]PERFECT DISK!";
560 TI$="000000":WAIT 161,2:GOTO 20
570 POKE 211,23:POKE 214,1:SYS 58732:PRINT "BAD MUTHAS";
580 TI$="000000":WAIT 161,1
590 FOR Y=1 TO X
600 IF T(Y)<>18 THEN NEXT Y:GOTO 660
610 GOSUB 10000:POKE 211,8:POKE 214,18:SYS 58732
620 PRINT"[158]DETECTED BAD-BLOX ON TRACK 18!"
630 PRINT "  TRANSFER YOUR FILES TO ANOTHER DISK!"
640 PRINT "    REFORMAT THE DISK AND TRY AGAIN!"
650 TI$="000000":WAIT 161,2:GOTO 20
660 OPEN 15,8,15,"S:>>BAD-BLOZ V2.<<"
670 INPUT#15,E:IF E<>1 THEN 750
675 PRINT#15,"V":INPUT#15,E:IF E>19 THEN 720
680 FOR Y=1 TO X
690 PRINT#15,"B-A:"0;T(Y);S(Y)
700 INPUT#15,E:IF E<>65 THEN 740
710 GOSUB 10000:POKE 211,9:POKE 214,18:SYS 58732
720 PRINT "[158]A FILE HAS BAD-BLOX!!!!"
730 GOTO 630
740 IF E<20 THEN NEXT Y:GOTO 780
750 GOSUB 10000:POKE 211,14:POKE 214,18:SYS 58732
760 PRINT "[158]DISK ERROR"
770 CLOSE 2:CLOSE 15:TI$="000000":WAIT 161,1:GOTO 20
780 GOSUB 10000:POKE 211,5:POKE 214,18:SYS 58732
790 PRINT "[158]CREATING >>BAD-BLOX V2.<< FILE"
800 CLOSE 15:OPEN 15,8,15,"U;":OPEN 2,8,2,">>BAD-BLOX V2.<<,S,W"
810 INPUT#15,E:IF E>19 THEN 750
820 PRINT#2,X
830 FOR Y=1 TO X:PRINT#2,T(Y):PRINT#2,S(Y):NEXT Y:CLOSE 2:CLOSE 15:GOTO 1190
1000 OPEN 2,8,2,">>BAD-BLOX V2.<<,S,R"
1010 INPUT#15,E:IF E=62 THEN 1030
1020 IF E>19 THEN 750
1030 CLOSE 2:PRINT#15,"V"
1040 INPUT#15,W:IF W>19 THEN 750
1050 IF E=62 THEN 1140
1060 OPEN 2,8,2,">>BAD-BLOX V2.<<,S,R":INPUT#2,X
1070 GOSUB 20000:FOR Y=1 TO X
1080 INPUT#2,T(Y):INPUT#2,S(Y):NEXT Y
1100 FOR Y=1 TO X:POKE 211,T(Y)+2:POKE 214,21-S(Y):SYS 58732:PRINT "[209]";
1110 PRINT#15,"B-A";0;T(Y);S(Y)
1120 NEXT Y
1130 POKE 211,23:POKE 214,1:SYS 58732:PRINT "BAD MUTHA";
1140 TI$="000000":WAIT 161,1
1190 GOSUB 10000:POKE 211,15:POKE 214,18:SYS 58732
1200 PRINT"[158]COMPLETE":TI$="000000":WAIT 161,2:GOTO 20
1210 PRINT#15,"M-W"CHR$(8)CHR$(0)CHR$(2)CHR$(T)CHR$(S)
1220 PRINT#15,"M-W"CHR$(1)CHR$(0)CHR$(1)CHR$(W)
1230 TI$="000000":WAIT 162,1
1240 PRINT#15,"M-R"CHR$(1)CHR$(0):GET#15,A$:E=PEEK(512)
1250 IF TI<180 AND E>127 THEN 1240
1260 RETURN
10000 POKE 53280,4:POKE 53281,4
10010 PRINT "[147][151]V2.0":PRINT TAB(11)"[158][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
10020 PRINT TAB(11)" [146][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][158] "
10030 PRINT TAB(11)" [146][191][191]  BAD-BLOX  [157] [191][191][158] "
10040 PRINT TAB(11)" [146][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][158] "
10050 PRINT TAB(11)"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
10120 RETURN
20000 POKE 53280,0:PRINT "[147][158]";
20010 PRINT "  [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
20020 PRINT "20[179]";SPC(17);"[194]"
20030 PRINT "19[179]";SPC(17);"[173][195][195][195][195][195][195][174]"
20040 PRINT "18[179]";SPC(24);"[173][195][195][195][195][195][174]"
20050 PRINT "17[179]";SPC(30);"[173][195][195][195][195][174]"
20060 FOR Z=16 TO 0 STEP-1:A$=STR$(Z):A$=RIGHT$(A$,2)
20070 IF LEN(A$)=1 THEN A$="0"+A$
20080 PRINT A$;"[179]";SPC(35);"[194]":NEXT Z
20090 PRINT "  [173][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][189] ";
20100 PRINT "            11111111112222222222333333  ";
20110 PRINT "   12345678901234567890123456789012345";
20120 PRINT "";:FOR T=1 TO 35:POKE 211,T+2:POKE 214,21:SYS 58732
20130 SM=20+2*(T>17)+(T>24)+(T>30)
20140 FOR S=0 TO SM:PRINT "[215][145][157]";:NEXT S:NEXT T:RETURN